home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / MathPad 2.4 / XFuns / XFun kit / scatter src / scatter..rsrc / scatter..rsrc.rsrc / TEXT_128_scatter().txt next >
Encoding:
Text File  |  1996-01-09  |  275 b   |  11 lines
  1. -- scatter(XYpoint)  opens a window and displays all the {x,y} points passed to it during one evaluation. The coordinates are window pixel coordinates.
  2.  
  3. x = cos(ang)*rand(80) + 100
  4. y = sin(ang)*rand(80) + 100
  5.  
  6. ang:=0:
  7. ( scatter({x,y}),,
  8.   ang:=ang+10) while ang<360*n:
  9.  
  10. n=10
  11.